home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Applications / Games / MCommand / Source / scorePhaseCities.psw < prev    next >
Encoding:
Text File  |  1994-04-01  |  1.1 KB  |  43 lines
  1. defineps scorePhaseCities(int cnt,total | boolean *result)
  2. %
  3. %
  4. %   Copyright 1992, Stefanos Kiakas. All rights reserved.
  5. %
  6. %   You may not delete this notice.
  7. %
  8. %
  9. % this functiion returns a value to synchronize the output
  10. % between the program and the DPS engine
  11.  
  12.         /x 200 def               %  x  start position 
  13.     /y 250 def               %  y start position
  14.         /cstr   2 string def     % declare space for a string of length 2
  15.     /ttlstr 7 string def     % declare space for a string of length 7
  16.        
  17.         /Times-Roman findfont    % select  and set up font
  18.         15 scalefont
  19.     setfont
  20.     
  21.      total ttlstr cvs         % initialize ttlstr to zero
  22.     cnt cstr cvs             % let cstr equal the string of count
  23.  
  24.     1 setgray                % erasde space to be printed
  25.     newpath
  26.     x y moveto
  27.     0 20 rlineto
  28.     150 0 rlineto
  29.     0 -20 rlineto
  30.     -150 0 rlineto
  31.     closepath
  32.     fill
  33.     
  34.         0 setgray                % set colour ro black    
  35.     x y moveto
  36.     ( x ) show               % display  score
  37.     cstr  show 
  38.     ( x 200  = ) show
  39.     ttlstr show
  40.     20000 {} repeat
  41.     flushgraphics
  42.     true result
  43. endps